/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_07 / memory_01

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 20 | 4d 65 6d 6f 72 79 30 31 |..... > |Memory01|
|00000010| 0d 00 14 1f f4 20 41 75 | 74 68 6f 72 20 20 20 20 |..... Au|thor    |
|00000020| 20 20 20 3a 20 47 20 4c | 20 46 69 74 74 6f 6e 0d |   : G L| Fitton.|
|00000030| 00 1e 24 f4 20 43 6f 70 | 79 72 69 67 68 74 20 20 |..$. Cop|yright  |
|00000040| 20 20 3a 20 41 42 41 43 | 55 53 20 54 52 41 49 4e |  : ABAC|US TRAIN|
|00000050| 49 4e 47 0d 00 28 24 f4 | 20 56 65 72 73 69 6f 6e |ING..($.| Version|
|00000060| 20 31 2e 30 30 20 3a 20 | 31 31 74 68 20 4d 61 72 | 1.00 : |11th Mar|
|00000070| 63 68 20 31 39 38 38 0d | 00 32 04 0d 00 3c 0e ee |ch 1988.|.2...<..|
|00000080| 20 85 20 f2 65 72 72 6f | 72 0d 00 46 07 eb 20 33 | . .erro|r..F.. 3|
|00000090| 0d 00 50 4d 6d 65 73 73 | 61 67 65 24 3d 22 57 61 |..PMmess|age$="Wa|
|000000a0| 74 63 68 20 74 68 69 73 | 20 73 70 61 63 65 2e 20 |tch this| space. |
|000000b0| 20 20 20 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |   .....|........|
|000000c0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000000d0| 2e 2e 2e 20 20 20 20 20 | 20 20 20 20 22 0d 00 5a |...     |    "..Z|
|000000e0| 3a 62 75 66 66 65 72 73 | 69 7a 65 25 3d 26 31 30 |:buffers|ize%=&10|
|000000f0| 30 20 20 20 20 20 20 20 | 20 20 3a f4 20 4d 61 6b |0       |  :. Mak|
|00000100| 65 20 73 75 72 65 20 79 | 6f 75 20 68 61 76 65 20 |e sure y|ou have |
|00000110| 65 6e 6f 75 67 68 2e 0d | 00 64 36 de 20 62 75 66 |enough..|.d6. buf|
|00000120| 66 65 72 25 20 62 75 66 | 66 65 72 73 69 7a 65 25 |fer% buf|fersize%|
|00000130| 20 20 3a f4 20 52 65 73 | 65 72 76 65 20 73 70 61 |  :. Res|erve spa|
|00000140| 63 65 20 69 6e 20 6d 65 | 6d 6f 72 79 2e 0d 00 6e |ce in me|mory...n|
|00000150| 31 73 74 61 72 74 25 20 | 20 3d 20 62 75 66 66 65 |1start% | = buffe|
|00000160| 72 25 20 20 20 20 20 20 | 20 20 3a f4 20 53 74 61 |r%      |  :. Sta|
|00000170| 72 74 20 6f 66 20 64 69 | 73 70 6c 61 79 2e 0d 00 |rt of di|splay...|
|00000180| 78 32 70 6f 73 25 20 20 | 20 20 3d 20 36 31 20 20 |x2pos%  |  = 61  |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 50 6f |        |   :. Po|
|000001a0| 73 69 74 69 6f 6e 20 6f | 66 20 63 75 72 73 6f 72 |sition o|f cursor|
|000001b0| 0d 00 82 3e 76 70 6f 73 | 25 20 20 20 3d 20 31 31 |...>vpos|%   = 11|
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |        |     :. |
|000001d0| 77 68 65 6e 20 61 6c 74 | 65 72 69 6e 67 20 6d 65 |when alt|ering me|
|000001e0| 6d 6f 72 79 20 69 6e 20 | 41 53 43 49 49 2e 0d 00 |mory in |ASCII...|
|000001f0| 8c 32 68 70 6f 73 25 20 | 20 20 3d 20 28 70 6f 73 |.2hpos% |  = (pos|
|00000200| 25 2d 36 31 29 2a 33 2b | 31 31 20 3a f4 20 50 6f |%-61)*3+|11 :. Po|
|00000210| 73 69 74 69 6f 6e 20 6f | 66 20 63 75 72 73 6f 72 |sition o|f cursor|
|00000220| 0d 00 96 3c 68 76 70 6f | 73 25 20 20 3d 20 76 70 |...<hvpo|s%  = vp|
|00000230| 6f 73 25 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |os%     |     :. |
|00000240| 77 68 65 6e 20 63 68 61 | 6e 67 69 6e 67 20 6d 65 |when cha|nging me|
|00000250| 6d 6f 72 79 20 69 6e 20 | 68 65 78 2e 0d 00 a0 3a |mory in |hex....:|
|00000260| 64 69 73 70 6c 61 79 25 | 3d 20 a3 20 20 20 20 20 |display%|= .     |
|00000270| 20 20 20 20 20 3a f4 20 | 52 65 64 69 73 70 6c 61 |     :. |Redispla|
|00000280| 79 20 6f 6e 20 73 63 72 | 65 65 6e 20 77 68 65 6e |y on scr|een when|
|00000290| 20 54 52 55 45 2e 0d 00 | aa 3a 61 73 63 69 69 25 | TRUE...|.:ascii%|
|000002a0| 20 20 3d 20 b9 20 20 20 | 20 20 20 20 20 20 20 20 |  = .   |        |
|000002b0| 3a f4 20 57 68 65 6e 20 | 6d 61 6b 69 6e 67 20 63 |:. When |making c|
|000002c0| 68 61 6e 67 65 73 20 69 | 6e 20 41 53 43 49 49 2e |hanges i|n ASCII.|
|000002d0| 0d 00 b4 3c 73 74 65 70 | 25 20 20 20 3d 20 31 20 |...<step|%   = 1 |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |        |     :. |
|000002f0| 53 69 7a 65 20 6f 66 20 | 73 74 65 70 20 74 68 72 |Size of |step thr|
|00000300| 6f 75 67 68 20 6d 65 6d | 6f 72 79 2e 0d 00 be 04 |ough mem|ory.....|
|00000310| 0d 00 c8 09 f2 68 65 6c | 70 0d 00 d2 44 f4 20 2a |.....hel|p...D. *|
|00000320| 4c 4f 41 44 20 61 20 66 | 69 6c 65 20 66 72 6f 6d |LOAD a f|ile from|
|00000330| 20 64 69 73 63 20 74 6f | 20 74 68 65 20 62 75 66 | disc to| the buf|
|00000340| 66 65 72 20 28 73 65 65 | 20 6c 69 6e 65 20 39 30 |fer (see| line 90|
|00000350| 20 61 62 6f 75 74 20 73 | 69 7a 65 29 2e 0d 00 dc | about s|ize)....|
|00000360| 05 f5 0d 00 e6 4d 6d 65 | 73 73 61 67 65 24 3d 22 |.....Mme|ssage$="|
|00000370| 57 61 74 63 68 20 74 68 | 69 73 20 73 70 61 63 65 |Watch th|is space|
|00000380| 2e 20 20 20 20 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |.    ...|........|
|00000390| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000003a0| 2e 2e 2e 2e 2e 20 20 20 | 20 20 20 20 20 20 22 0d |.....   |      ".|
|000003b0| 00 f0 36 71 75 69 74 25 | 3d a4 6d 6f 64 69 66 79 |..6quit%|=.modify|
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 4d 6f |        |   :. Mo|
|000003d0| 64 69 66 79 20 62 79 74 | 65 73 20 69 6e 20 6d 65 |dify byt|es in me|
|000003e0| 6d 6f 72 79 2e 0d 00 fa | 0d fd 20 71 75 69 74 25 |mory....|.. quit%|
|000003f0| 3d b9 0d 01 04 25 f4 20 | 53 61 76 65 20 74 68 65 |=....%. |Save the|
|00000400| 20 6d 6f 64 69 66 69 65 | 64 20 66 69 6c 65 20 74 | modifie|d file t|
|00000410| 6f 20 64 69 73 63 2e 0d | 01 0e 3d ff 28 22 2a 53 |o disc..|..=.("*S|
|00000420| 41 56 45 20 62 75 66 66 | 65 72 20 22 2b c3 7e 28 |AVE buff|er "+.~(|
|00000430| 62 75 66 66 65 72 25 29 | 2b 22 2b 22 2b c3 7e 28 |buffer%)|+"+"+.~(|
|00000440| 62 75 66 66 65 72 73 69 | 7a 65 25 29 2b 22 20 30 |buffersi|ze%)+" 0|
|00000450| 20 30 22 29 0d 01 18 18 | 2a 53 45 54 54 59 50 45 | 0")....|*SETTYPE|
|00000460| 20 62 75 66 66 65 72 20 | 26 46 46 44 0d 01 22 11 | buffer |&FFD..".|
|00000470| 2a 53 54 41 4d 50 20 62 | 75 66 66 65 72 0d 01 2c |*STAMP b|uffer..,|
|00000480| 05 db 0d 01 36 31 f1 20 | 22 54 68 65 20 66 69 6c |....61. |"The fil|
|00000490| 65 20 63 61 6c 6c 65 64 | 20 22 22 62 75 66 66 65 |e called| ""buffe|
|000004a0| 72 22 22 20 6e 6f 77 20 | 63 6f 6e 74 61 69 6e 73 |r"" now |contains|
|000004b0| 3a 2d 22 0d 01 40 10 2a | 44 55 4d 50 20 62 75 66 |:-"..@.*|DUMP buf|
|000004c0| 66 65 72 0d 01 4a 05 f1 | 0d 01 54 05 e0 0d 01 5e |fer..J..|..T....^|
|000004d0| 04 0d 01 68 0b dd f2 65 | 72 72 6f 72 0d 01 72 0b |...h...e|rror..r.|
|000004e0| 2a 46 58 20 34 2c 30 0d | 01 7c 05 db 0d 01 86 05 |*FX 4,0.|.|......|
|000004f0| f6 0d 01 90 13 f1 20 22 | 20 61 74 20 6c 69 6e 65 |...... "| at line|
|00000500| 20 22 3b 9e 0d 01 9a 05 | e1 0d 01 a4 04 0d 01 ae | ";.....|........|
|00000510| 1c dd 20 f2 70 72 69 6e | 74 28 6d 65 73 73 61 67 |.. .prin|t(messag|
|00000520| 65 24 2c 78 25 2c 79 25 | 29 0d 01 b8 27 f4 20 50 |e$,x%,y%|)...'. P|
|00000530| 72 69 6e 74 73 20 74 68 | 65 20 6d 65 73 73 61 67 |rints th|e messag|
|00000540| 65 20 61 74 20 54 41 42 | 28 78 25 2c 79 25 29 2e |e at TAB|(x%,y%).|
|00000550| 0d 01 c2 05 ea 0d 01 cc | 0e f1 20 8a 78 25 2c 79 |........|.. .x%,y|
|00000560| 25 29 3b 0d 01 d6 0f f1 | 20 6d 65 73 73 61 67 65 |%);.....| message|
|00000570| 24 3b 0d 01 e0 05 e1 0d | 01 ea 04 0d 01 f4 2a dd |$;......|......*.|
|00000580| 20 f2 6d 65 6d 6f 72 79 | 28 74 79 70 65 24 2c 70 | .memory|(type$,p|
|00000590| 73 74 61 72 74 25 2c 6c | 65 6e 67 74 68 25 2c 78 |start%,l|ength%,x|
|000005a0| 25 2c 79 25 29 0d 01 fe | 21 f4 20 44 69 73 70 6c |%,y%)...|!. Displ|
|000005b0| 61 79 73 20 61 20 62 6c | 6f 63 6b 20 6f 66 20 6d |ays a bl|ock of m|
|000005c0| 65 6d 6f 72 79 2e 0d 02 | 08 0e ea 20 63 6f 6d 6d |emory...|... comm|
|000005d0| 61 6e 64 24 0d 02 12 0e | f1 20 8a 78 25 2c 79 25 |and$....|. .x%,y%|
|000005e0| 29 3b 0d 02 1c 3c 63 6f | 6d 6d 61 6e 64 24 3d 22 |);...<co|mmand$="|
|000005f0| 4d 65 6d 6f 72 79 22 2b | 74 79 70 65 24 2b 22 20 |Memory"+|type$+" |
|00000600| 22 2b c3 7e 28 70 73 74 | 61 72 74 25 29 2b 22 20 |"+.~(pst|art%)+" |
|00000610| 2b 22 2b c3 7e 28 6c 65 | 6e 67 74 68 25 29 0d 02 |+"+.~(le|ngth%)..|
|00000620| 26 0f ff 28 63 6f 6d 6d | 61 6e 64 24 29 0d 02 30 |&..(comm|and$)..0|
|00000630| 05 e1 0d 02 3a 04 0d 02 | 44 21 dd 20 a4 61 6c 74 |....:...|D!. .alt|
|00000640| 65 72 41 53 43 49 49 28 | f8 20 70 6f 73 25 2c f8 |erASCII(|. pos%,.|
|00000650| 20 76 70 6f 73 25 29 0d | 02 4e 26 f4 20 4c 65 74 | vpos%).|.N&. Let|
|00000660| 73 20 74 68 65 20 75 73 | 65 72 20 63 68 61 6e 67 |s the us|er chang|
|00000670| 65 20 74 68 65 20 6d 65 | 6d 6f 72 79 2e 0d 02 58 |e the me|mory...X|
|00000680| 0f ea 20 6b 65 79 25 2c | 6b 65 79 24 0d 02 62 05 |.. key%,|key$..b.|
|00000690| f5 0d 02 6c 13 f1 20 8a | 70 6f 73 25 2c 76 70 6f |...l.. .|pos%,vpo|
|000006a0| 73 25 29 3b 0d 02 76 22 | f4 20 43 75 72 73 6f 72 |s%);..v"|. Cursor|
|000006b0| 20 6b 65 79 73 20 74 61 | 6b 65 20 43 48 52 24 20 | keys ta|ke CHR$ |
|000006c0| 76 61 6c 75 65 73 0d 02 | 80 0b 2a 46 58 20 34 2c |values..|..*FX 4,|
|000006d0| 31 0d 02 8a 0a 6b 65 79 | 25 3d a5 0d 02 94 0b 2a |1....key|%=.....*|
|000006e0| 46 58 20 34 2c 30 0d 02 | 9e 10 6b 65 79 24 3d bd |FX 4,0..|..key$=.|
|000006f0| 28 6b 65 79 25 29 0d 02 | a8 21 e7 20 a6 28 2d 31 |(key%)..|.!. .(-1|
|00000700| 29 3d b9 20 8c 20 73 74 | 65 70 25 3d 38 20 8b 20 |)=. . st|ep%=8 . |
|00000710| 73 74 65 70 25 3d 31 0d | 02 b2 39 e7 20 6b 65 79 |step%=1.|..9. key|
|00000720| 25 3e 33 31 20 20 80 20 | 6b 65 79 25 3c 31 32 37 |%>31  . |key%<127|
|00000730| 20 8c 20 f2 69 6e 73 65 | 72 74 41 53 43 49 49 28 | . .inse|rtASCII(|
|00000740| 6b 65 79 25 2c 70 6f 73 | 25 2c 76 70 6f 73 25 29 |key%,pos|%,vpos%)|
|00000750| 0d 02 bc 1c e7 20 6b 65 | 79 25 3d 31 33 36 20 8c |..... ke|y%=136 .|
|00000760| 20 70 6f 73 25 3d 70 6f | 73 25 2d 31 0d 02 c6 1c | pos%=po|s%-1....|
|00000770| e7 20 6b 65 79 25 3d 31 | 33 37 20 8c 20 70 6f 73 |. key%=1|37 . pos|
|00000780| 25 3d 70 6f 73 25 2b 31 | 0d 02 d0 32 e7 20 6b 65 |%=pos%+1|...2. ke|
|00000790| 79 25 3d 31 33 38 20 8c | 20 73 74 61 72 74 25 3d |y%=138 .| start%=|
|000007a0| 73 74 61 72 74 25 2b 31 | 36 2a 73 74 65 70 25 3a |start%+1|6*step%:|
|000007b0| 64 69 73 70 6c 61 79 25 | 3d b9 0d 02 da 32 e7 20 |display%|=....2. |
|000007c0| 6b 65 79 25 3d 31 33 39 | 20 8c 20 73 74 61 72 74 |key%=139| . start|
|000007d0| 25 3d 73 74 61 72 74 25 | 2d 31 36 2a 73 74 65 70 |%=start%|-16*step|
|000007e0| 25 3a 64 69 73 70 6c 61 | 79 25 3d b9 0d 02 e4 24 |%:displa|y%=....$|
|000007f0| e7 20 6b 65 79 25 3d 20 | 20 39 20 8c 20 61 73 63 |. key%= | 9 . asc|
|00000800| 69 69 25 3d a3 3a 64 69 | 73 70 6c 61 79 25 3d b9 |ii%=.:di|splay%=.|
|00000810| 0d 02 ee 24 e7 20 6b 65 | 79 25 3d 20 31 33 20 8c |...$. ke|y%= 13 .|
|00000820| 20 71 75 69 74 25 20 3d | b9 3a 64 69 73 70 6c 61 | quit% =|.:displa|
|00000830| 79 25 3d b9 0d 02 f8 33 | e7 20 70 6f 73 25 3d 36 |y%=....3|. pos%=6|
|00000840| 30 20 8c 20 70 6f 73 25 | 3d 37 36 3a 73 74 61 72 |0 . pos%|=76:star|
|00000850| 74 25 3d 73 74 61 72 74 | 25 2d 31 36 3a 64 69 73 |t%=start|%-16:dis|
|00000860| 70 6c 61 79 25 3d b9 0d | 03 02 33 e7 20 70 6f 73 |play%=..|..3. pos|
|00000870| 25 3d 37 37 20 8c 20 70 | 6f 73 25 3d 36 31 3a 73 |%=77 . p|os%=61:s|
|00000880| 74 61 72 74 25 3d 73 74 | 61 72 74 25 2b 31 36 3a |tart%=st|art%+16:|
|00000890| 64 69 73 70 6c 61 79 25 | 3d b9 0d 03 0c 19 f2 70 |display%|=......p|
|000008a0| 72 69 6e 74 28 6d 65 73 | 73 61 67 65 24 2c 30 2c |rint(mes|sage$,0,|
|000008b0| 32 30 29 0d 03 16 10 fd | 20 64 69 73 70 6c 61 79 |20).....| display|
|000008c0| 25 3d b9 0d 03 20 0e 64 | 69 73 70 6c 61 79 25 3d |%=... .d|isplay%=|
|000008d0| a3 0d 03 2a 0a 3d 71 75 | 69 74 25 0d 03 34 04 0d |...*.=qu|it%..4..|
|000008e0| 03 3e 27 dd 20 f2 69 6e | 73 65 72 74 41 53 43 49 |.>'. .in|sertASCI|
|000008f0| 49 28 6b 65 79 25 2c f8 | 20 70 6f 73 25 2c f8 20 |I(key%,.| pos%,. |
|00000900| 76 70 6f 73 25 29 0d 03 | 48 33 f4 20 4d 6f 64 69 |vpos%)..|H3. Modi|
|00000910| 66 69 65 73 20 74 68 65 | 20 6d 65 6d 6f 72 79 20 |fies the| memory |
|00000920| 61 6e 64 20 70 72 69 6e | 74 73 20 74 6f 20 74 68 |and prin|ts to th|
|00000930| 65 20 73 63 72 65 65 6e | 2e 0d 03 52 0f ea 20 6b |e screen|...R.. k|
|00000940| 65 79 24 2c 68 65 78 24 | 0d 03 5c 10 6b 65 79 24 |ey$,hex$|..\.key$|
|00000950| 3d bd 28 6b 65 79 25 29 | 0d 03 66 1a 68 65 78 24 |=.(key%)|..f.hex$|
|00000960| 3d c2 22 30 30 22 2b c3 | 7e 28 6b 65 79 25 29 2c |=."00"+.|~(key%),|
|00000970| 32 29 0d 03 70 1e 3f 28 | 73 74 61 72 74 25 2b 26 |2)..p.?(|start%+&|
|00000980| 38 30 2b 70 6f 73 25 2d | 36 31 29 3d 6b 65 79 25 |80+pos%-|61)=key%|
|00000990| 0d 03 7a 26 f1 20 6b 65 | 79 24 3b 8a 38 2b 28 70 |..z&. ke|y$;.8+(p|
|000009a0| 6f 73 25 2d 36 30 29 2a | 33 2c 76 70 6f 73 25 29 |os%-60)*|3,vpos%)|
|000009b0| 3b 68 65 78 24 3b 0d 03 | 84 0f 70 6f 73 25 3d 70 |;hex$;..|..pos%=p|
|000009c0| 6f 73 25 2b 31 0d 03 8e | 05 e1 0d 03 98 04 0d 03 |os%+1...|........|
|000009d0| a2 22 dd 20 a4 63 68 61 | 6e 67 65 68 65 78 28 f8 |.". .cha|ngehex(.|
|000009e0| 20 68 70 6f 73 25 2c f8 | 20 68 76 70 6f 73 25 29 | hpos%,.| hvpos%)|
|000009f0| 0d 03 ac 26 f4 20 4c 65 | 74 73 20 74 68 65 20 75 |...&. Le|ts the u|
|00000a00| 73 65 72 20 63 68 61 6e | 67 65 20 74 68 65 20 6d |ser chan|ge the m|
|00000a10| 65 6d 6f 72 79 2e 0d 03 | b6 0f ea 20 6b 65 79 25 |emory...|... key%|
|00000a20| 2c 6b 65 79 24 0d 03 c0 | 05 f5 0d 03 ca 15 f1 20 |,key$...|....... |
|00000a30| 8a 68 70 6f 73 25 2c 68 | 76 70 6f 73 25 29 3b 0d |.hpos%,h|vpos%);.|
|00000a40| 03 d4 22 f4 20 43 75 72 | 73 6f 72 20 6b 65 79 73 |..". Cur|sor keys|
|00000a50| 20 74 61 6b 65 20 43 48 | 52 24 20 76 61 6c 75 65 | take CH|R$ value|
|00000a60| 73 0d 03 de 0b 2a 46 58 | 20 34 2c 31 0d 03 e8 0a |s....*FX| 4,1....|
|00000a70| 6b 65 79 25 3d a5 0d 03 | f2 0b 2a 46 58 20 34 2c |key%=...|..*FX 4,|
|00000a80| 30 0d 03 fc 10 6b 65 79 | 24 3d bd 28 6b 65 79 25 |0....key|$=.(key%|
|00000a90| 29 0d 04 06 1f e7 20 a6 | 28 2d 31 29 20 8c 20 73 |)..... .|(-1) . s|
|00000aa0| 74 65 70 25 3d 38 20 8b | 20 73 74 65 70 25 3d 31 |tep%=8 .| step%=1|
|00000ab0| 0d 04 10 3f e7 20 a7 22 | 30 31 32 33 34 35 36 37 |...?. ."|01234567|
|00000ac0| 38 39 41 42 43 44 45 46 | 22 2c 6b 65 79 24 29 20 |89ABCDEF|",key$) |
|00000ad0| 8c 20 f2 69 6e 73 65 72 | 74 68 65 78 28 6b 65 79 |. .inser|thex(key|
|00000ae0| 24 2c 68 70 6f 73 25 2c | 68 76 70 6f 73 25 29 0d |$,hpos%,|hvpos%).|
|00000af0| 04 1a 1e e7 20 6b 65 79 | 25 3d 31 33 36 20 8c 20 |.... key|%=136 . |
|00000b00| 68 70 6f 73 25 3d 68 70 | 6f 73 25 2d 33 0d 04 24 |hpos%=hp|os%-3..$|
|00000b10| 1e e7 20 6b 65 79 25 3d | 31 33 37 20 8c 20 68 70 |.. key%=|137 . hp|
|00000b20| 6f 73 25 3d 68 70 6f 73 | 25 2b 33 0d 04 2e 32 e7 |os%=hpos|%+3...2.|
|00000b30| 20 6b 65 79 25 3d 31 33 | 38 20 8c 20 73 74 61 72 | key%=13|8 . star|
|00000b40| 74 25 3d 73 74 61 72 74 | 25 2b 31 36 2a 73 74 65 |t%=start|%+16*ste|
|00000b50| 70 25 3a 64 69 73 70 6c | 61 79 25 3d b9 0d 04 38 |p%:displ|ay%=...8|
|00000b60| 32 e7 20 6b 65 79 25 3d | 31 33 39 20 8c 20 73 74 |2. key%=|139 . st|
|00000b70| 61 72 74 25 3d 73 74 61 | 72 74 25 2d 31 36 2a 73 |art%=sta|rt%-16*s|
|00000b80| 74 65 70 25 3a 64 69 73 | 70 6c 61 79 25 3d b9 0d |tep%:dis|play%=..|
|00000b90| 04 42 24 e7 20 6b 65 79 | 25 3d 20 20 39 20 8c 20 |.B$. key|%=  9 . |
|00000ba0| 61 73 63 69 69 25 3d b9 | 3a 64 69 73 70 6c 61 79 |ascii%=.|:display|
|00000bb0| 25 3d b9 0d 04 4c 23 e7 | 20 6b 65 79 25 3d 20 31 |%=...L#.| key%= 1|
|00000bc0| 33 20 8c 20 71 75 69 74 | 25 3d b9 3a 64 69 73 70 |3 . quit|%=.:disp|
|00000bd0| 6c 61 79 25 3d b9 0d 04 | 56 35 e7 20 68 70 6f 73 |lay%=...|V5. hpos|
|00000be0| 25 3d 20 38 20 8c 20 68 | 70 6f 73 25 3d 35 36 3a |%= 8 . h|pos%=56:|
|00000bf0| 73 74 61 72 74 25 3d 73 | 74 61 72 74 25 2d 31 36 |start%=s|tart%-16|
|00000c00| 3a 64 69 73 70 6c 61 79 | 25 3d b9 0d 04 60 35 e7 |:display|%=...`5.|
|00000c10| 20 68 70 6f 73 25 3d 35 | 39 20 8c 20 68 70 6f 73 | hpos%=5|9 . hpos|
|00000c20| 25 3d 31 31 3a 73 74 61 | 72 74 25 3d 73 74 61 72 |%=11:sta|rt%=star|
|00000c30| 74 25 2b 31 36 3a 64 69 | 73 70 6c 61 79 25 3d b9 |t%+16:di|splay%=.|
|00000c40| 0d 04 6a 19 f2 70 72 69 | 6e 74 28 6d 65 73 73 61 |..j..pri|nt(messa|
|00000c50| 67 65 24 2c 30 2c 32 30 | 29 0d 04 74 10 fd 20 64 |ge$,0,20|)..t.. d|
|00000c60| 69 73 70 6c 61 79 25 3d | b9 0d 04 7e 0e 64 69 73 |isplay%=|...~.dis|
|00000c70| 70 6c 61 79 25 3d a3 0d | 04 88 0a 3d 71 75 69 74 |play%=..|...=quit|
|00000c80| 25 0d 04 92 04 0d 04 9c | 28 dd 20 f2 69 6e 73 65 |%.......|(. .inse|
|00000c90| 72 74 68 65 78 28 6b 65 | 79 31 24 2c f8 20 68 70 |rthex(ke|y1$,. hp|
|00000ca0| 6f 73 25 2c f8 20 68 76 | 70 6f 73 25 29 0d 04 a6 |os%,. hv|pos%)...|
|00000cb0| 33 f4 20 4d 6f 64 69 66 | 69 65 73 20 74 68 65 20 |3. Modif|ies the |
|00000cc0| 6d 65 6d 6f 72 79 20 61 | 6e 64 20 70 72 69 6e 74 |memory a|nd print|
|00000cd0| 73 20 74 6f 20 74 68 65 | 20 73 63 72 65 65 6e 2e |s to the| screen.|
|00000ce0| 0d 04 b0 10 ea 20 6b 65 | 79 32 24 2c 68 65 78 24 |..... ke|y2$,hex$|
|00000cf0| 0d 04 ba 0c f1 20 6b 65 | 79 31 24 3b 0d 04 c4 05 |..... ke|y1$;....|
|00000d00| f5 0d 04 ce 0b 6b 65 79 | 32 24 3d be 0d 04 d8 28 |.....key|2$=....(|
|00000d10| e7 20 a7 22 30 31 32 33 | 34 35 36 37 38 39 41 42 |. ."0123|456789AB|
|00000d20| 43 44 45 46 22 2c 6b 65 | 79 32 24 29 3d 30 20 8c |CDEF",ke|y2$)=0 .|
|00000d30| 20 ef 20 37 0d 04 e2 20 | fd 20 a7 22 30 31 32 33 | . 7... |. ."0123|
|00000d40| 34 35 36 37 38 39 41 42 | 43 44 45 46 22 2c 6b 65 |456789AB|CDEF",ke|
|00000d50| 79 32 24 29 0d 04 ec 0b | f1 20 6b 65 79 32 24 0d |y2$)....|. key2$.|
|00000d60| 04 f6 14 68 65 78 24 3d | 6b 65 79 31 24 2b 6b 65 |...hex$=|key1$+ke|
|00000d70| 79 32 24 0d 05 00 14 68 | 65 78 25 3d a0 28 22 26 |y2$....h|ex%=.("&|
|00000d80| 22 2b 68 65 78 24 29 0d | 05 0a 34 e7 20 68 65 78 |"+hex$).|..4. hex|
|00000d90| 25 3e 33 31 20 80 20 68 | 65 78 25 3c 31 32 37 20 |%>31 . h|ex%<127 |
|00000da0| 8c 20 63 68 61 72 24 3d | bd 28 68 65 78 25 29 20 |. char$=|.(hex%) |
|00000db0| 8b 20 63 68 61 72 24 3d | 22 2e 22 0d 05 14 23 f1 |. char$=|"."...#.|
|00000dc0| 20 8a 36 30 2b 28 68 70 | 6f 73 25 2d 38 29 81 33 | .60+(hp|os%-8).3|
|00000dd0| 2c 76 70 6f 73 25 29 3b | 63 68 61 72 24 3b 0d 05 |,vpos%);|char$;..|
|00000de0| 1e 23 3f 28 73 74 61 72 | 74 25 2b 26 38 30 2b 28 |.#?(star|t%+&80+(|
|00000df0| 68 70 6f 73 25 2d 31 31 | 29 81 33 29 3d 68 65 78 |hpos%-11|).3)=hex|
|00000e00| 25 0d 05 28 11 68 70 6f | 73 25 3d 68 70 6f 73 25 |%..(.hpo|s%=hpos%|
|00000e10| 2b 33 0d 05 32 05 e1 0d | 05 3c 04 0d 05 46 0d dd |+3..2...|.<...F..|
|00000e20| 20 a4 6d 6f 64 69 66 79 | 0d 05 50 19 f2 70 72 69 | .modify|..P..pri|
|00000e30| 6e 74 28 6d 65 73 73 61 | 67 65 24 2c 30 2c 32 30 |nt(messa|ge$,0,20|
|00000e40| 29 0d 05 5a 21 f2 6d 65 | 6d 6f 72 79 28 22 20 42 |)..Z!.me|mory(" B|
|00000e50| 22 2c 73 74 61 72 74 25 | 2c 26 31 30 30 2c 30 2c |",start%|,&100,0,|
|00000e60| 30 29 0d 05 64 19 f2 70 | 72 69 6e 74 28 6d 65 73 |0)..d..p|rint(mes|
|00000e70| 73 61 67 65 24 2c 30 2c | 32 30 29 0d 05 6e 10 e7 |sage$,0,|20)..n..|
|00000e80| 20 61 73 63 69 69 25 3d | b9 20 8c 0d 05 78 18 70 | ascii%=|. ...x.p|
|00000e90| 6f 73 25 3d 28 68 70 6f | 73 25 2d 31 31 29 81 33 |os%=(hpo|s%-11).3|
|00000ea0| 2b 36 31 0d 05 82 21 71 | 75 69 74 25 3d a4 61 6c |+61...!q|uit%=.al|
|00000eb0| 74 65 72 41 53 43 49 49 | 28 70 6f 73 25 2c 76 70 |terASCII|(pos%,vp|
|00000ec0| 6f 73 25 29 0d 05 8c 18 | 68 70 6f 73 25 3d 28 70 |os%)....|hpos%=(p|
|00000ed0| 6f 73 25 2d 36 31 29 2a | 33 2b 31 31 0d 05 96 05 |os%-61)*|3+11....|
|00000ee0| cc 0d 05 a0 18 68 70 6f | 73 25 3d 28 70 6f 73 25 |.....hpo|s%=(pos%|
|00000ef0| 2d 36 31 29 2a 33 2b 31 | 31 0d 05 aa 22 71 75 69 |-61)*3+1|1..."qui|
|00000f00| 74 25 3d a4 63 68 61 6e | 67 65 68 65 78 28 68 70 |t%=.chan|gehex(hp|
|00000f10| 6f 73 25 2c 68 76 70 6f | 73 25 29 0d 05 b4 18 70 |os%,hvpo|s%)....p|
|00000f20| 6f 73 25 3d 28 68 70 6f | 73 25 2d 31 31 29 81 33 |os%=(hpo|s%-11).3|
|00000f30| 2b 36 31 0d 05 be 05 cd | 0d 05 c8 0a 3d 71 75 69 |+61.....|....=qui|
|00000f40| 74 25 0d 05 d2 04 0d 05 | dc 0b dd 20 f2 68 65 6c |t%......|... .hel|
|00000f50| 70 0d 05 e6 34 f1 20 8a | 30 2c 32 31 29 3b 22 50 |p...4. .|0,21);"P|
|00000f60| 72 65 73 73 20 63 75 72 | 73 6f 72 73 20 74 6f 20 |ress cur|sors to |
|00000f70| 6d 6f 76 65 20 74 68 72 | 6f 75 67 68 20 6d 65 6d |move thr|ough mem|
|00000f80| 6f 72 79 2e 22 0d 05 f0 | 39 f1 20 8a 30 2c 32 32 |ory."...|9. .0,22|
|00000f90| 29 3b 22 50 72 65 73 73 | 20 3c 53 68 69 66 74 3e |);"Press| <Shift>|
|00000fa0| 20 77 69 74 68 20 63 75 | 72 73 6f 72 73 20 74 6f | with cu|rsors to|
|00000fb0| 20 6d 6f 76 65 20 66 61 | 73 74 65 72 2e 22 0d 05 | move fa|ster."..|
|00000fc0| fa 3b f1 20 8a 30 2c 32 | 33 29 3b 22 50 72 65 73 |.;. .0,2|3);"Pres|
|00000fd0| 73 20 3c 54 61 62 3e 20 | 74 6f 20 74 6f 67 67 6c |s <Tab> |to toggl|
|00000fe0| 65 20 62 65 74 77 65 65 | 6e 20 41 53 43 49 49 20 |e betwee|n ASCII |
|00000ff0| 61 6e 64 20 68 65 78 2e | 22 0d 06 04 3a f1 20 8a |and hex.|"...:. .|
|00001000| 30 2c 32 34 29 3b 22 45 | 6e 74 65 72 20 63 68 61 |0,24);"E|nter cha|
|00001010| 6e 67 65 73 20 61 74 20 | 63 75 72 73 6f 72 20 69 |nges at |cursor i|
|00001020| 6e 20 41 53 43 49 49 20 | 6f 72 20 68 65 78 2e 20 |n ASCII |or hex. |
|00001030| 20 22 3b 0d 06 0e 22 f1 | 20 22 50 72 65 73 73 20 | ";...".| "Press |
|00001040| 3c 52 65 74 75 72 6e 3e | 20 74 6f 20 66 69 6e 69 |<Return>| to fini|
|00001050| 73 68 2e 22 3b 0d 06 18 | 05 e1 0d ff             |sh.";...|....    |
+--------+-------------------------+-------------------------+--------+--------+